home *** CD-ROM | disk | FTP | other *** search
- -- background: 2653 from stack: in
- -- bmap block id: 2469
- -- flags: 0000
- -- background id: 0
- -- name:
- ----- HyperTalk script -----
- on openBkgnd
- set visible of bkgnd button "OK" to false
- end openBkgnd
-
- on openCard
- get name of prev card
- delete first word of it
- delete first char of it
- delete last char of it
- put it into bkgnd field prvCard
- get name of next card
- delete first word of it
- delete first char of it
- delete last char of it
- put it into bkgnd field nxtCard
- end openCard
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=273 top=306 right=337 bottom=307
- -- title width / last selected line: 0
- -- icon id / first selected line: 27009 / 27009
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next
- ----- HyperTalk script -----
- on mouseUp
- visual effect Scroll Left
- go to next card
- put empty into bkgnd field result
- end mouseUp
-
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=204 top=306 right=337 bottom=238
- -- title width / last selected line: 0
- -- icon id / first selected line: 9301 / 9301
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Previous
- ----- HyperTalk script -----
- on mouseUp
- visual effect scroll right
- go to prev card
- put empty into bkgnd field result
- end mouseUp
-
-
-
- -- part 7 (button)
- -- low flags: 00
- -- high flags: A003
- -- rect: left=115 top=115 right=137 bottom=294
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Copy Resource TO a Stack
- ----- HyperTalk script -----
- on mouseUp
- -- set up the resource name and type
- put bkgnd field name into resName
- put bkgnd field type into resType
-
- -- set up the source stack name
- put the long name of this stack into sourceStack
- delete first word of sourceStack
- delete first character of sourceStack
- delete last character of sourceStack
-
- -- get the name of the stack to copy the XCMD/XFCN from
- put fileName("STAK") into destStack
- if destStack = empty then exit mouseUp
-
- -- check to make sure
- put "OK to copy the " & resType into sure
- put " " & resName after sure
- put "?" after sure
- answer sure with "Yes" or "No"
- if it is "No" then exit mouseUp
-
- -- do the actual copying
- ResCopy sourceStack,destStack,resType,resName
-
- -- do result handling
- get the result
- put "Serious problem - the resource was not copied" into outCome
- if it is "ERR2" then put "Source file couldn't be opened." into outCome
- if it is "ERR4" then put "The resource to be copied wasn't found in the source file." into outCome
- if it is "OK1" then put "The resource was copied successfully." into outCome
- if it is "OK3" then put "An existing resource was replaced by the copied one." into outCome
- put outcome into bkgnd field result
-
- -- patch
- push card
- set lockScreen to true
- go home
- doMenu "Back"
- pop card
- end mouseUp
-
-
- -- part 8 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=56 top=29 right=48 bottom=197
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: name
-
-
- -- part 9 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=240 top=29 right=48 bottom=299
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: type
-
-
- -- part 10 (button)
- -- low flags: 00
- -- high flags: A003
- -- rect: left=306 top=115 right=137 bottom=507
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Get A New Resource
- ----- HyperTalk script -----
- on mouseUp
- -- init globals
- global resType, resName
-
- -- get the name of the resource and it's type
- doMenu "New Card"
- put "Please enter the name of the resource and it's type. Click OK when you're done." into bkgnd field result
- set visible of bkgnd button "OK" to true
- get the location of bkgnd field name
- click at it
- end mouseUp
-
-
-
- -- part 16 (field)
- -- low flags: 00
- -- high flags: 2002
- -- rect: left=4 top=171 right=305 bottom=507
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: comments
-
-
- -- part 15 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=3 top=57 right=85 bottom=509
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 12
- -- style flags: 0
- -- line height: 23
- -- part name: result
-
-
- -- part 17 (button)
- -- low flags: 80
- -- high flags: A003
- -- rect: left=352 top=90 right=112 bottom=452
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: OK
- ----- HyperTalk script -----
- on mouseUp
- -- get the name of the stack to copy the XCMD/XFCN from.
- put FileName(STAK) into sourceStack
- if sourceStack = empty then exit mouseUp
-
- -- set up the destination stack name, resName, resType
- put the long name of this stack into destStack
- delete first word of destStack
- delete first character of destStack
- delete last character of destStack
- put bkgnd field name into resName
- put bkgnd field type into resType
-
- -- do the actual copying
- ResCopy sourceStack,destStack,resType,resName
-
- -- do result handling
- get the result
- put "Serious problem - the resource was not copied" into outCome
- if it is "ERR2" then
- put "Source file couldn't be opened." into outcome
- end if
- if it is "ERR4" then
- put "The resource to be copied wasn't found in the source file." into outcome
- end if
- if it is "OK1" then
- put "The resource was copied successfully." into outcome
- end if
- if it is "OK3" then
- put "An existing resource was replaced by the copied one." into outcome
- end if
- put outcome into bkgnd field result
-
- -- turn off ok button
- set the visible of bkgnd button "OK" to false
-
- -- name the card for button labels
- get bkgnd field name
- set the name of this card to it
-
- -- patch
- push card
- set lockScreen to true
- go home
- doMenu "Back"
- pop card
- end mouseUp
-
-
-
- -- part 19 (button)
- -- low flags: 00
- -- high flags: A003
- -- rect: left=4 top=115 right=137 bottom=104
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Sort
- ----- HyperTalk script -----
- on mouseUp
- push card
- answer "Sort all cards of this stack according to:" with "Name" or "Type" or "Cancel"
- if it is "Name" then sort by bkgnd field "Name"
- if it is "Type" then sort by bkgnd field "Type"
- pop card
- doMenu "Compact Stack"
- end mouseUp
-
-
- -- part 20 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=4 top=148 right=170 bottom=104
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Comments
-
-
- -- part 22 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=57 top=312 right=332 bottom=207
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 2
- -- text size: 14
- -- style flags: 0
- -- line height: 18
- -- part name: prvCard
- ----- HyperTalk script -----
- on mouseUp
- get location of bkgnd button previous
- click at it
- end mouseUp
-
-
-
- -- part 23 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=308 top=312 right=332 bottom=458
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 14
- -- style flags: 0
- -- line height: 18
- -- part name: nxtCard
- ----- HyperTalk script -----
- on mouseUp
- get location of bkgnd button next
- click at it
- end mouseUp
-
-